home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Trouble 2.xpl < prev    next >
Text File  |  2003-11-20  |  1KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Internet Explorer\Troubleshooting"
  5. "UIPATH 2"="Internet\Internet Explorer\Window Settings"
  6. "NAME"="Window Placement Reset"
  7. "VERSION"="2.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Reset IE Window Placement"
  10. "DESCRIPTION 1"="Reset Internet Explorer's window location to the default position IF problems with the window location occur, such as creating an off screen window or restricting window resizing to minimize or maximize only. When IE is restarted, a new location value will be created."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks to Ojatex for his help!"
  16.  
  17.  
  18. sPCheck="HKCU\Software\Microsoft\Internet Explorer\"
  19.  
  20. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\Window_Placement"
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24.  If RegPathExists(sPCheck) then
  25.     'do nothing???
  26.  else
  27.     Disable
  28.  end if
  29. End Sub
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  If ElementIndex=1 then
  36.     s=RegReadValue(sV2)
  37.  
  38.     If IsEmpty(s)=false then
  39.        Call RegDeleteValue(sV2)
  40.     end if
  41.  
  42.     Call MsgInformation("Corrected")
  43.  end if 
  44.  
  45.  
  46. End Sub
  47.  
  48. Sub Plugin_Terminate 
  49. End Sub
  50.